home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_gen / xv_pc16a.zip / MICKEY.INT < prev    next >
Text File  |  1994-04-26  |  2KB  |  48 lines
  1. UNIT Mickey;
  2. {
  3. *****************************************************************************
  4.  Interface para "mouse" da interface XView-PC.
  5.  Por: Antonio Carlos Moreirao de Queiroz - acmq@coe.ufrj.br
  6.  V. 1.0 de 02/02/92
  7.  V. 1.1 de 04/04/92 Emulador por teclado
  8.  V. 2.0 de 09/06/92 Usa mouse ou teclado
  9.  V. 2.1 de 30/06/92 Mudada emulacao
  10.  V. 2.2 de 03/09/92 ScrollLock controla emulacao e Shift a retencao
  11.  V. 2.3 de 25/09/92 Teclas nao extendidas normais passadas normalmente
  12.  V. 2.3a de 27/10/92 Mouse_read limpa o buffer do teclado na emulacao
  13.  V. 2.3b de 10/03/93 KeyPressed renomeada para mkbhit, eventos extendidos
  14. *****************************************************************************
  15.  
  16. Observacoes:
  17.  
  18. Se o "mouse" nao estiver instalado, o teclado emula seu funcionamento.
  19. O cursor move a seta e os botoes sao substituidos por:
  20.   esquerdo: Return
  21.   central:  Escape
  22.   direito:  Espaco
  23. As teclas Home, PgDn e PgUp mudam o passo do cursor simulado.
  24. Com CapsLock ou Shift ativo, os botoes simulados funcionam no modo
  25. liga/desliga.
  26. ScrollLock desativa a emulacao enquanto acionado, permitindo uso normal
  27. do teclado.
  28. A funcao mkbhit retorna KeyPressed quando a emulacao esta inativa ou o cursor
  29. nao esta na tela. De outra forma, ignora operacoes com o mouse emulado.
  30. O programa tem que ficar chamando "mouse_read" regularmente, para que a
  31. emulacao funcione.
  32. }
  33.  
  34. INTERFACE
  35.  
  36. USES Dos,Crt,Graph;
  37.  
  38. VAR
  39.   mousex,mousey,mouseb,x_factor:INTEGER;
  40.   cursor_active:BOOLEAN;
  41.  
  42. PROCEDURE mouse_init;              {Inicializa}
  43. PROCEDURE cursor_on;               {Liga o cursor}
  44. PROCEDURE cursor_off;              {Desliga o cursor}
  45. PROCEDURE mouse_read;              {Le o estado atual}
  46. PROCEDURE mouse_move(x,y:INTEGER); {Move o cursor}
  47. FUNCTION  mkbhit:BOOLEAN;          {Substituto para KeyPressed}
  48.